Developer CD Series 1994 November: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / PasLibIntf.p < prev next >
MacBinary | 1993-06-15 | 6.4 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Applause Picture `(image/applausePicture)`	ext	Unsupported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	MATLAB p-code `(other/matlabPCode)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Jun 15 12:17:01 1993, modified Tue Jun 15 12:17:01 1993, creator 'MPS ', type ASCII, 5842 bytes "PasLibIntf.p" , at 0x1752 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 50 61 73 4c 69 62 | 49 6e 74 66 2e 70 00 00 |..PasLib|Intf.p..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 16 d2 00 | 00 01 ac a8 43 a6 7d a8 |........|....C.}.|
|00000060| 43 a6 7d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.}.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 99 6e 00 00 |........|.....n..|
|00000080| 7b 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2a 0d 20 7c 09 09 09 | 09 09 09 09 09 09 09 09 |-*. |...|........|
|000000e0| 09 09 09 09 09 09 09 09 | 09 20 7c 0d 20 7c 09 09 |........|. |. |..|
|000000f0| 09 09 09 09 20 20 3c 3c | 3c 20 50 61 73 63 61 6c |....  <<|< Pascal|
|00000100| 20 4c 69 62 72 61 72 79 | 20 49 6e 74 65 72 66 61 | Library| Interfa|
|00000110| 63 65 20 3e 3e 3e 09 09 | 09 09 09 09 20 7c 0d 20 |ce >>>..|.... |. |
|00000120| 7c 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 ||.......|........|
|00000130| 09 09 09 09 09 20 7c 0d | 20 7c 09 09 09 09 09 09 |..... |.| |......|
|00000140| 43 6f 70 79 72 69 67 68 | 74 20 41 70 70 6c 65 20 |Copyrigh|t Apple |
|00000150| 43 6f 6d 70 75 74 65 72 | 2c 20 49 6e 63 2e 20 31 |Computer|, Inc. 1|
|00000160| 39 38 36 20 09 09 09 09 | 09 20 7c 0d 20 7c 09 09 |986 ....|. |. |..|
|00000170| 09 09 09 09 09 20 20 20 | 41 6c 6c 20 72 69 67 68 |.....   |All righ|
|00000180| 74 73 20 72 65 73 65 72 | 76 65 64 2e 20 09 09 09 |ts reser|ved. ...|
|00000190| 09 09 09 09 20 7c 0d 20 | 7c 09 09 09 09 09 09 09 |.... |. ||.......|
|000001a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 20 7c 0d |........|..... |.|
|000001b0| 20 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | *------|--------|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2a 7d 0d 0d 7b 0d 20 | 49 6e 74 65 72 66 61 63 |-*}..{. |Interfac|
|00000210| 65 20 74 6f 20 74 68 65 | 20 50 61 73 63 61 6c 20 |e to the| Pascal |
|00000220| 49 2f 4f 20 61 6e 64 20 | 4d 65 6d 6f 72 79 20 4d |I/O and |Memory M|
|00000230| 61 6e 61 67 65 72 20 4c | 69 62 72 61 72 79 2e 0d |anager L|ibrary..|
|00000240| 20 42 75 69 6c 74 2d 69 | 6e 20 70 72 6f 63 65 64 | Built-i|n proced|
|00000250| 75 72 65 20 61 6e 64 20 | 66 75 6e 63 74 69 6f 6e |ure and |function|
|00000260| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 73 20 61 72 | declara|tions ar|
|00000270| 65 20 6d 61 72 6b 65 64 | 20 77 69 74 68 0d 20 74 |e marked| with. t|
|00000280| 68 65 20 28 2a 20 2a 29 | 20 63 6f 6d 6d 65 6e 74 |he (* *)| comment|
|00000290| 20 63 68 61 72 61 63 74 | 65 72 73 0d 7d 0d 0d 55 | charact|ers.}..U|
|000002a0| 4e 49 54 20 50 41 53 4c | 49 42 49 6e 74 66 3b 0d |NIT PASL|IBIntf;.|
|000002b0| 0d 20 20 49 4e 54 45 52 | 46 41 43 45 0d 0d 09 54 |.  INTER|FACE...T|
|000002c0| 59 50 45 0d 09 20 20 50 | 41 53 43 41 4c 50 4f 49 |YPE..  P|ASCALPOI|
|000002d0| 4e 54 45 52 20 3d 20 5e | 49 4e 54 45 47 45 52 3b |NTER = ^|INTEGER;|
|000002e0| 20 7b 20 55 6e 69 76 65 | 72 73 61 6c 20 50 4f 49 | { Unive|rsal POI|
|000002f0| 4e 54 45 52 20 74 79 70 | 65 20 7d 0d 09 20 20 50 |NTER typ|e }..  P|
|00000300| 41 53 43 41 4c 46 49 4c | 45 20 3d 20 46 49 4c 45 |ASCALFIL|E = FILE|
|00000310| 3b 20 7b 20 55 6e 69 76 | 65 72 73 61 6c 20 46 49 |; { Univ|ersal FI|
|00000320| 4c 45 20 74 79 70 65 20 | 7d 0d 28 2a 0d 20 2a 09 |LE type |}.(*. *.|
|00000330| 20 20 50 41 53 43 41 4c | 42 4c 4f 43 4b 20 3d 20 |  PASCAL|BLOCK = |
|00000340| 20 20 20 7b 20 55 6e 69 | 76 65 72 73 61 6c 20 62 |   { Uni|versal b|
|00000350| 6c 6f 63 6b 20 6f 66 20 | 63 68 61 72 73 20 7d 0d |lock of |chars }.|
|00000360| 20 2a 09 09 09 50 41 43 | 4b 45 44 20 41 52 52 41 | *...PAC|KED ARRA|
|00000370| 59 20 5b 30 2e 2e 35 31 | 31 5d 20 4f 46 20 43 48 |Y [0..51|1] OF CH|
|00000380| 41 52 3b 0d 20 2a 29 0d | 0d 09 43 4f 4e 53 54 0d |AR;. *).|..CONST.|
|00000390| 09 20 20 7b 20 3c 53 74 | 64 49 4f 2e 68 3e 20 50 |.  { <St|dIO.h> P|
|000003a0| 4c 53 65 74 56 42 75 66 | 20 73 74 79 6c 65 73 20 |LSetVBuf| styles |
|000003b0| 7d 0d 09 20 20 5f 49 4f | 46 42 46 20 3d 20 24 30 |}..  _IO|FBF = $0|
|000003c0| 30 3b 20 7b 20 46 69 6c | 65 20 62 75 66 66 65 72 |0; { Fil|e buffer|
|000003d0| 69 6e 67 20 7d 0d 09 20 | 20 5f 49 4f 4c 42 46 20 |ing }.. | _IOLBF |
|000003e0| 3d 20 24 34 30 3b 20 7b | 20 4c 69 6e 65 20 62 75 |= $40; {| Line bu|
|000003f0| 66 66 65 72 69 6e 67 20 | 7d 0d 09 20 20 5f 49 4f |ffering |}..  _IO|
|00000400| 4e 42 46 20 3d 20 24 30 | 34 3b 20 7b 20 4e 6f 20 |NBF = $0|4; { No |
|00000410| 62 75 66 66 65 72 69 6e | 67 20 7d 0d 0d 7b 0d 20 |bufferin|g }..{. |
|00000420| 4d 61 63 20 50 61 73 63 | 61 6c 20 68 65 61 70 20 |Mac Pasc|al heap |
|00000430| 6d 61 6e 61 67 65 6d 65 | 6e 74 0d 7d 0d 0d 09 50 |manageme|nt.}...P|
|00000440| 52 4f 43 45 44 55 52 45 | 20 50 4c 48 65 61 70 49 |ROCEDURE| PLHeapI|
|00000450| 6e 69 74 28 73 69 7a 65 | 70 68 65 61 70 3a 20 4c |nit(size|pheap: L|
|00000460| 4f 4e 47 49 4e 54 3b 20 | 68 65 61 70 44 65 6c 74 |ONGINT; |heapDelt|
|00000470| 61 3a 20 4c 4f 4e 47 49 | 4e 54 3b 0d 09 09 09 09 |a: LONGI|NT;.....|
|00000480| 09 09 20 6d 65 6d 65 72 | 72 50 72 6f 63 3a 20 55 |.. memer|rProc: U|
|00000490| 4e 49 56 20 50 41 53 43 | 41 4c 50 4f 49 4e 54 45 |NIV PASC|ALPOINTE|
|000004a0| 52 3b 20 61 6c 6c 6f 77 | 4e 6f 6e 43 6f 6e 74 3a |R; allow|NonCont:|
|000004b0| 20 42 4f 4f 4c 45 41 4e | 3b 0d 09 09 09 09 09 09 | BOOLEAN|;.......|
|000004c0| 20 66 6f 72 44 69 73 70 | 6f 73 65 3a 20 42 4f 4f | forDisp|ose: BOO|
|000004d0| 4c 45 41 4e 29 3b 0d 0d | 09 50 52 4f 43 45 44 55 |LEAN);..|.PROCEDU|
|000004e0| 52 45 20 50 4c 53 65 74 | 4e 6f 6e 43 6f 6e 74 28 |RE PLSet|NonCont(|
|000004f0| 61 6c 6c 6f 77 4e 6f 6e | 43 6f 6e 74 3a 20 42 4f |allowNon|Cont: BO|
|00000500| 4f 4c 45 41 4e 29 3b 0d | 0d 09 50 52 4f 43 45 44 |OLEAN);.|..PROCED|
|00000510| 55 52 45 20 50 4c 53 65 | 74 4d 45 72 72 50 72 6f |URE PLSe|tMErrPro|
|00000520| 63 28 6d 65 6d 65 72 72 | 50 72 6f 63 3a 20 55 4e |c(memerr|Proc: UN|
|00000530| 49 56 20 50 41 53 43 41 | 4c 50 4f 49 4e 54 45 52 |IV PASCA|LPOINTER|
|00000540| 29 3b 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 50 |);...PRO|CEDURE P|
|00000550| 4c 53 65 74 48 65 61 70 | 54 79 70 65 28 66 6f 72 |LSetHeap|Type(for|
|00000560| 44 69 73 70 6f 73 65 3a | 20 42 4f 4f 4c 45 41 4e |Dispose:| BOOLEAN|
|00000570| 29 3b 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 50 |);...PRO|CEDURE P|
|00000580| 4c 53 65 74 48 65 61 70 | 43 68 65 63 6b 28 44 6f |LSetHeap|Check(Do|
|00000590| 49 74 3a 20 42 4f 4f 4c | 45 41 4e 29 3b 0d 0d 7b |It: BOOL|EAN);..{|
|000005a0| 0d 20 46 69 6c 65 20 49 | 2f 4f 0d 7d 0d 0d 28 2a |. File I|/O.}..(*|
|000005b0| 0d 20 2a 09 20 20 50 52 | 4f 43 45 44 55 52 45 0d |. *.  PR|OCEDURE.|
|000005c0| 20 2a 09 09 52 45 53 45 | 54 28 56 41 52 20 66 76 | *..RESE|T(VAR fv|
|000005d0| 61 72 3a 20 20 55 4e 49 | 56 20 50 41 53 43 41 4c |ar:  UNI|V PASCAL|
|000005e0| 46 49 4c 45 3b 20 4f 50 | 54 20 66 6e 61 6d 65 3a |FILE; OP|T fname:|
|000005f0| 20 53 54 52 49 4e 47 29 | 3b 0d 20 2a 09 09 42 55 | STRING)|;. *..BU|
|00000600| 49 4c 54 49 4e 3b 0d 20 | 2a 0d 20 2a 09 20 20 50 |ILTIN;. |*. *.  P|
|00000610| 52 4f 43 45 44 55 52 45 | 0d 20 2a 09 09 52 45 57 |ROCEDURE|. *..REW|
|00000620| 52 49 54 45 28 56 41 52 | 20 66 76 61 72 3a 20 55 |RITE(VAR| fvar: U|
|00000630| 4e 49 56 20 50 41 53 43 | 41 4c 46 49 4c 45 3b 20 |NIV PASC|ALFILE; |
|00000640| 4f 50 54 20 66 6e 61 6d | 65 3a 20 53 54 52 49 4e |OPT fnam|e: STRIN|
|00000650| 47 29 3b 0d 20 2a 09 09 | 42 55 49 4c 54 49 4e 3b |G);. *..|BUILTIN;|
|00000660| 0d 20 2a 0d 20 2a 09 20 | 20 50 52 4f 43 45 44 55 |. *. *. | PROCEDU|
|00000670| 52 45 0d 20 2a 09 09 4f | 50 45 4e 28 56 41 52 20 |RE. *..O|PEN(VAR |
|00000680| 66 76 61 72 3a 09 55 4e | 49 56 20 50 41 53 43 41 |fvar:.UN|IV PASCA|
|00000690| 4c 46 49 4c 45 3b 20 66 | 6e 61 6d 65 3a 20 53 54 |LFILE; f|name: ST|
|000006a0| 52 49 4e 47 29 3b 0d 20 | 2a 09 09 42 55 49 4c 54 |RING);. |*..BUILT|
|000006b0| 49 4e 3b 0d 20 2a 29 0d | 0d 09 50 52 4f 43 45 44 |IN;. *).|..PROCED|
|000006c0| 55 52 45 20 50 4c 53 65 | 74 56 42 75 66 28 56 41 |URE PLSe|tVBuf(VA|
|000006d0| 52 20 66 76 61 72 3a 20 | 54 45 58 54 3b 20 62 75 |R fvar: |TEXT; bu|
|000006e0| 66 66 65 72 3a 20 55 4e | 49 56 20 50 41 53 43 41 |ffer: UN|IV PASCA|
|000006f0| 4c 50 4f 49 4e 54 45 52 | 3b 0d 09 09 09 09 09 09 |LPOINTER|;.......|
|00000700| 73 74 79 6c 65 3a 20 49 | 4e 54 45 47 45 52 3b 20 |style: I|NTEGER; |
|00000710| 62 75 66 73 69 7a 65 3a | 20 49 4e 54 45 47 45 52 |bufsize:| INTEGER|
|00000720| 29 3b 0d 28 2a 0d 20 2a | 09 20 20 46 55 4e 43 54 |);.(*. *|.  FUNCT|
|00000730| 49 4f 4e 0d 20 2a 09 09 | 42 4c 4f 43 4b 52 45 41 |ION. *..|BLOCKREA|
|00000740| 44 28 0d 20 2a 09 09 20 | 20 56 41 52 20 66 76 61 |D(. *.. | VAR fva|
|00000750| 72 3a 20 46 49 4c 45 3b | 0d 20 2a 09 09 20 20 56 |r: FILE;|. *..  V|
|00000760| 41 52 20 62 75 66 66 65 | 72 3a 20 55 4e 49 56 20 |AR buffe|r: UNIV |
|00000770| 50 41 53 43 41 4c 42 4c | 4f 43 4b 3b 0d 20 2a 09 |PASCALBL|OCK;. *.|
|00000780| 09 20 20 6e 42 6c 6f 63 | 6b 73 3a 20 49 4e 54 45 |.  nBloc|ks: INTE|
|00000790| 47 45 52 3b 0d 20 2a 09 | 09 20 20 4f 50 54 20 73 |GER;. *.|.  OPT s|
|000007a0| 74 42 6c 6f 63 6b 3a 49 | 4e 54 45 47 45 52 0d 20 |tBlock:I|NTEGER. |
|000007b0| 2a 09 09 29 3a 0d 20 2a | 09 09 49 4e 54 45 47 45 |*..):. *|..INTEGE|
|000007c0| 52 3b 0d 20 2a 09 09 42 | 55 49 4c 54 49 4e 3b 0d |R;. *..B|UILTIN;.|
|000007d0| 20 2a 0d 20 2a 09 20 20 | 46 55 4e 43 54 49 4f 4e | *. *.  |FUNCTION|
|000007e0| 0d 20 2a 09 09 42 4c 4f | 43 4b 57 52 49 54 45 28 |. *..BLO|CKWRITE(|
|000007f0| 0d 20 2a 09 09 20 20 56 | 41 52 20 66 76 61 72 3a |. *..  V|AR fvar:|
|00000800| 20 46 49 4c 45 3b 0d 20 | 2a 09 09 20 20 56 41 52 | FILE;. |*..  VAR|
|00000810| 20 62 75 66 66 65 72 3a | 20 55 4e 49 56 20 50 41 | buffer:| UNIV PA|
|00000820| 53 43 41 4c 42 4c 4f 43 | 4b 3b 0d 20 2a 09 09 20 |SCALBLOC|K;. *.. |
|00000830| 20 6e 42 6c 6f 63 6b 73 | 3a 20 49 4e 54 45 47 45 | nBlocks|: INTEGE|
|00000840| 52 3b 0d 20 2a 09 09 20 | 20 4f 50 54 20 73 74 42 |R;. *.. | OPT stB|
|00000850| 6c 6f 63 6b 3a 49 4e 54 | 45 47 45 52 0d 20 2a 09 |lock:INT|EGER. *.|
|00000860| 09 29 3a 0d 20 2a 09 09 | 49 4e 54 45 47 45 52 3b |.):. *..|INTEGER;|
|00000870| 0d 20 2a 09 09 42 55 49 | 4c 54 49 4e 3b 0d 20 2a |. *..BUI|LTIN;. *|
|00000880| 0d 20 2a 09 20 20 46 55 | 4e 43 54 49 4f 4e 0d 20 |. *.  FU|NCTION. |
|00000890| 2a 09 09 42 59 54 45 52 | 45 41 44 28 0d 20 2a 09 |*..BYTER|EAD(. *.|
|000008a0| 09 20 20 56 41 52 20 66 | 76 61 72 3a 20 46 49 4c |.  VAR f|var: FIL|
|000008b0| 45 3b 0d 20 2a 09 09 20 | 20 56 41 52 20 62 75 66 |E;. *.. | VAR buf|
|000008c0| 66 65 72 3a 20 55 4e 49 | 56 20 50 41 53 43 41 4c |fer: UNI|V PASCAL|
|000008d0| 42 4c 4f 43 4b 3b 0d 20 | 2a 09 09 20 20 6e 42 79 |BLOCK;. |*..  nBy|
|000008e0| 74 65 73 3a 20 20 4c 4f | 4e 47 49 4e 54 3b 0d 20 |tes:  LO|NGINT;. |
|000008f0| 2a 09 09 20 20 4f 50 54 | 20 73 74 42 79 74 65 3a |*..  OPT| stByte:|
|00000900| 20 4c 4f 4e 47 49 4e 54 | 0d 20 2a 09 09 29 3a 0d | LONGINT|. *..):.|
|00000910| 20 2a 09 09 4c 4f 4e 47 | 49 4e 54 3b 0d 20 2a 09 | *..LONG|INT;. *.|
|00000920| 09 42 55 49 4c 54 49 4e | 3b 0d 20 2a 0d 20 2a 09 |.BUILTIN|;. *. *.|
|00000930| 20 20 46 55 4e 43 54 49 | 4f 4e 0d 20 2a 09 09 42 |  FUNCTI|ON. *..B|
|00000940| 59 54 45 57 52 49 54 45 | 28 0d 20 2a 09 09 20 20 |YTEWRITE|(. *..  |
|00000950| 56 41 52 20 66 76 61 72 | 3a 20 46 49 4c 45 3b 0d |VAR fvar|: FILE;.|
|00000960| 20 2a 09 09 20 20 56 41 | 52 20 62 75 66 66 65 72 | *..  VA|R buffer|
|00000970| 3a 20 55 4e 49 56 20 50 | 41 53 43 41 4c 42 4c 4f |: UNIV P|ASCALBLO|
|00000980| 43 4b 3b 0d 20 2a 09 09 | 20 20 6e 42 79 74 65 73 |CK;. *..|  nBytes|
|00000990| 3a 20 20 4c 4f 4e 47 49 | 4e 54 3b 0d 20 2a 09 09 |:  LONGI|NT;. *..|
|000009a0| 20 20 4f 50 54 20 73 74 | 42 79 74 65 3a 20 4c 4f |  OPT st|Byte: LO|
|000009b0| 4e 47 49 4e 54 0d 20 2a | 09 09 29 3a 0d 20 2a 09 |NGINT. *|..):. *.|
|000009c0| 09 4c 4f 4e 47 49 4e 54 | 3b 0d 20 2a 09 09 42 55 |.LONGINT|;. *..BU|
|000009d0| 49 4c 54 49 4e 3b 0d 20 | 2a 0d 20 2a 09 20 20 46 |ILTIN;. |*. *.  F|
|000009e0| 55 4e 43 54 49 4f 4e 0d | 20 2a 09 09 45 4f 46 28 |UNCTION.| *..EOF(|
|000009f0| 4f 50 54 20 56 41 52 20 | 66 76 61 72 3a 20 55 4e |OPT VAR |fvar: UN|
|00000a00| 49 56 20 50 41 53 43 41 | 4c 46 49 4c 45 29 3a 0d |IV PASCA|LFILE):.|
|00000a10| 20 2a 09 09 42 4f 4f 4c | 45 41 4e 3b 0d 20 2a 09 | *..BOOL|EAN;. *.|
|00000a20| 09 42 55 49 4c 54 49 4e | 3b 0d 20 2a 0d 20 2a 09 |.BUILTIN|;. *. *.|
|00000a30| 20 20 46 55 4e 43 54 49 | 4f 4e 0d 20 2a 09 09 45 |  FUNCTI|ON. *..E|
|00000a40| 4f 4c 4e 28 4f 50 54 20 | 56 41 52 20 66 76 61 72 |OLN(OPT |VAR fvar|
|00000a50| 3a 20 54 45 58 54 29 3a | 0d 20 2a 09 09 42 4f 4f |: TEXT):|. *..BOO|
|00000a60| 4c 45 41 4e 3b 0d 20 2a | 09 09 42 55 49 4c 54 49 |LEAN;. *|..BUILTI|
|00000a70| 4e 3b 0d 20 2a 0d 20 2a | 09 20 20 50 52 4f 43 45 |N;. *. *|.  PROCE|
|00000a80| 44 55 52 45 0d 20 2a 09 | 09 52 45 41 44 28 56 41 |DURE. *.|.READ(VA|
|00000a90| 52 20 66 76 61 72 3a 20 | 54 45 58 54 3b 20 4f 50 |R fvar: |TEXT; OP|
|00000aa0| 54 20 45 58 50 52 5f 4c | 49 53 54 29 3b 0d 20 2a |T EXPR_L|IST);. *|
|00000ab0| 09 09 42 55 49 4c 54 49 | 4e 3b 0d 20 2a 0d 20 2a |..BUILTI|N;. *. *|
|00000ac0| 09 20 20 50 52 4f 43 45 | 44 55 52 45 0d 20 2a 09 |.  PROCE|DURE. *.|
|00000ad0| 09 52 45 41 44 4c 4e 28 | 4f 50 54 20 56 41 52 20 |.READLN(|OPT VAR |
|00000ae0| 66 76 61 72 3a 20 54 45 | 58 54 3b 20 4f 50 54 20 |fvar: TE|XT; OPT |
|00000af0| 45 58 50 52 5f 4c 49 53 | 54 29 3b 0d 20 2a 09 09 |EXPR_LIS|T);. *..|
|00000b00| 42 55 49 4c 54 49 4e 3b | 0d 20 2a 0d 20 2a 09 20 |BUILTIN;|. *. *. |
|00000b10| 20 50 52 4f 43 45 44 55 | 52 45 0d 20 2a 09 09 57 | PROCEDU|RE. *..W|
|00000b20| 52 49 54 45 28 56 41 52 | 20 66 76 61 72 3a 20 54 |RITE(VAR| fvar: T|
|00000b30| 45 58 54 3b 20 4f 50 54 | 20 45 58 50 52 5f 4c 49 |EXT; OPT| EXPR_LI|
|00000b40| 53 54 29 3b 0d 20 2a 09 | 09 42 55 49 4c 54 49 4e |ST);. *.|.BUILTIN|
|00000b50| 3b 0d 20 2a 0d 20 2a 09 | 20 20 50 52 4f 43 45 44 |;. *. *.|  PROCED|
|00000b60| 55 52 45 0d 20 2a 09 09 | 57 52 49 54 45 4c 4e 28 |URE. *..|WRITELN(|
|00000b70| 4f 50 54 20 56 41 52 20 | 66 76 61 72 3a 20 54 45 |OPT VAR |fvar: TE|
|00000b80| 58 54 3b 20 4f 50 54 20 | 45 58 50 52 5f 4c 49 53 |XT; OPT |EXPR_LIS|
|00000b90| 54 29 3b 0d 20 2a 09 09 | 42 55 49 4c 54 49 4e 3b |T);. *..|BUILTIN;|
|00000ba0| 0d 20 2a 0d 20 2a 09 20 | 20 50 52 4f 43 45 44 55 |. *. *. | PROCEDU|
|00000bb0| 52 45 0d 20 2a 09 09 47 | 45 54 28 56 41 52 20 66 |RE. *..G|ET(VAR f|
|00000bc0| 76 61 72 3a 20 55 4e 49 | 56 20 50 41 53 43 41 4c |var: UNI|V PASCAL|
|00000bd0| 46 49 4c 45 29 3b 0d 20 | 2a 09 09 42 55 49 4c 54 |FILE);. |*..BUILT|
|00000be0| 49 4e 3b 0d 20 2a 0d 20 | 2a 09 20 20 50 52 4f 43 |IN;. *. |*.  PROC|
|00000bf0| 45 44 55 52 45 0d 20 2a | 09 09 50 55 54 28 56 41 |EDURE. *|..PUT(VA|
|00000c00| 52 20 66 76 61 72 3a 20 | 55 4e 49 56 20 50 41 53 |R fvar: |UNIV PAS|
|00000c10| 43 41 4c 46 49 4c 45 29 | 3b 0d 20 2a 09 09 42 55 |CALFILE)|;. *..BU|
|00000c20| 49 4c 54 49 4e 3b 0d 20 | 2a 0d 20 2a 09 20 20 50 |ILTIN;. |*. *.  P|
|00000c30| 52 4f 43 45 44 55 52 45 | 0d 20 2a 09 09 53 45 45 |ROCEDURE|. *..SEE|
|00000c40| 4b 28 56 41 52 20 66 76 | 61 72 3a 20 55 4e 49 56 |K(VAR fv|ar: UNIV|
|00000c50| 20 50 41 53 43 41 4c 46 | 49 4c 45 3b 20 72 65 63 | PASCALF|ILE; rec|
|00000c60| 6e 6f 3a 20 4c 4f 4e 47 | 49 4e 54 29 3b 0d 20 2a |no: LONG|INT);. *|
|00000c70| 09 09 42 55 49 4c 54 49 | 4e 3b 0d 20 2a 29 0d 0d |..BUILTI|N;. *)..|
|00000c80| 09 46 55 4e 43 54 49 4f | 4e 20 50 4c 46 69 6c 65 |.FUNCTIO|N PLFile|
|00000c90| 50 6f 73 28 56 41 52 20 | 66 76 61 72 3a 20 55 4e |Pos(VAR |fvar: UN|
|00000ca0| 49 56 20 50 41 53 43 41 | 4c 46 49 4c 45 29 3a 20 |IV PASCA|LFILE): |
|00000cb0| 4c 4f 4e 47 49 4e 54 3b | 0d 0d 09 50 52 4f 43 45 |LONGINT;|...PROCE|
|00000cc0| 44 55 52 45 20 50 4c 46 | 6c 75 73 68 28 56 41 52 |DURE PLF|lush(VAR|
|00000cd0| 20 66 76 61 72 3a 20 54 | 45 58 54 29 3b 0d 0d 09 | fvar: T|EXT);...|
|00000ce0| 50 52 4f 43 45 44 55 52 | 45 20 50 4c 43 72 75 6e |PROCEDUR|E PLCrun|
|00000cf0| 63 68 28 56 41 52 20 66 | 76 61 72 3a 20 55 4e 49 |ch(VAR f|var: UNI|
|00000d00| 56 20 50 41 53 43 41 4c | 46 49 4c 45 29 3b 0d 7b |V PASCAL|FILE);.{|
|00000d10| 0d 20 44 69 72 65 63 74 | 6f 72 79 20 6f 70 65 72 |. Direct|ory oper|
|00000d20| 61 74 69 6f 6e 73 2e 0d | 7d 0d 0d 09 50 52 4f 43 |ations..|}...PROC|
|00000d30| 45 44 55 52 45 20 50 4c | 50 75 72 67 65 28 66 6e |EDURE PL|Purge(fn|
|00000d40| 61 6d 65 3a 20 53 54 52 | 49 4e 47 29 3b 0d 0d 09 |ame: STR|ING);...|
|00000d50| 50 52 4f 43 45 44 55 52 | 45 20 50 4c 52 65 6e 61 |PROCEDUR|E PLRena|
|00000d60| 6d 65 28 6f 6c 64 46 6e | 61 6d 65 2c 20 6e 65 77 |me(oldFn|ame, new|
|00000d70| 46 6e 61 6d 65 3a 20 53 | 54 52 49 4e 47 29 3b 0d |Fname: S|TRING);.|
|00000d80| 09 0d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 20 42 41 |....FUNC|TION  BA|
|00000d90| 4e 44 34 28 6c 6f 6e 67 | 31 2c 20 6c 6f 6e 67 32 |ND4(long|1, long2|
|00000da0| 3a 20 4c 6f 6e 67 49 6e | 74 29 3a 20 4c 6f 6e 67 |: LongIn|t): Long|
|00000db0| 49 6e 74 3b 20 20 7b 74 | 68 65 73 65 20 63 61 6c |Int;  {t|hese cal|
|00000dc0| 6c 73 20 61 72 65 20 6f | 6e 6c 79 20 68 65 72 65 |ls are o|nly here|
|00000dd0| 20 74 65 6d 70 6f 72 61 | 72 69 6c 74 79 20 7d 0d | tempora|rilty }.|
|00000de0| 46 55 4e 43 54 49 4f 4e | 20 20 42 4f 52 34 20 28 |FUNCTION|  BOR4 (|
|00000df0| 6c 6f 6e 67 31 2c 20 6c | 6f 6e 67 32 3a 20 4c 6f |long1, l|ong2: Lo|
|00000e00| 6e 67 49 6e 74 29 3a 20 | 4c 6f 6e 67 49 6e 74 3b |ngInt): |LongInt;|
|00000e10| 0d 46 55 4e 43 54 49 4f | 4e 20 20 42 58 4f 52 34 |.FUNCTIO|N  BXOR4|
|00000e20| 28 6c 6f 6e 67 31 2c 20 | 6c 6f 6e 67 32 3a 20 4c |(long1, |long2: L|
|00000e30| 6f 6e 67 49 6e 74 29 3a | 20 4c 6f 6e 67 49 6e 74 |ongInt):| LongInt|
|00000e40| 3b 0d 46 55 4e 43 54 49 | 4f 4e 20 20 42 4e 4f 54 |;.FUNCTI|ON  BNOT|
|00000e50| 34 28 6c 6f 6e 67 31 3a | 20 20 20 20 20 20 20 20 |4(long1:|        |
|00000e60| 4c 6f 6e 67 49 6e 74 29 | 3a 20 4c 6f 6e 67 49 6e |LongInt)|: LongIn|
|00000e70| 74 3b 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 20 42 53 |t;..FUNC|TION  BS|
|00000e80| 4c 34 20 20 28 6c 6f 6e | 67 31 3a 20 4c 6f 6e 67 |L4  (lon|g1: Long|
|00000e90| 49 6e 74 3b 20 63 6f 75 | 6e 74 3a 20 49 4e 54 45 |Int; cou|nt: INTE|
|00000ea0| 47 45 52 29 3a 20 4c 6f | 6e 67 49 6e 74 3b 0d 46 |GER): Lo|ngInt;.F|
|00000eb0| 55 4e 43 54 49 4f 4e 20 | 20 42 53 52 34 20 20 28 |UNCTION | BSR4  (|
|00000ec0| 6c 6f 6e 67 31 3a 20 4c | 6f 6e 67 49 6e 74 3b 20 |long1: L|ongInt; |
|00000ed0| 63 6f 75 6e 74 3a 20 49 | 4e 54 45 47 45 52 29 3a |count: I|NTEGER):|
|00000ee0| 20 4c 6f 6e 67 49 6e 74 | 3b 0d 46 55 4e 43 54 49 | LongInt|;.FUNCTI|
|00000ef0| 4f 4e 20 20 42 52 6f 74 | 4c 34 28 6c 6f 6e 67 31 |ON  BRot|L4(long1|
|00000f00| 3a 20 4c 6f 6e 67 49 6e | 74 3b 20 63 6f 75 6e 74 |: LongIn|t; count|
|00000f10| 3a 20 49 4e 54 45 47 45 | 52 29 3a 20 4c 6f 6e 67 |: INTEGE|R): Long|
|00000f20| 49 6e 74 3b 0d 46 55 4e | 43 54 49 4f 4e 20 20 42 |Int;.FUN|CTION  B|
|00000f30| 52 6f 74 52 34 28 6c 6f | 6e 67 31 3a 20 4c 6f 6e |RotR4(lo|ng1: Lon|
|00000f40| 67 49 6e 74 3b 20 63 6f | 75 6e 74 3a 20 49 4e 54 |gInt; co|unt: INT|
|00000f50| 45 47 45 52 29 3a 20 4c | 6f 6e 67 49 6e 74 3b 0d |EGER): L|ongInt;.|
|00000f60| 0d 46 55 4e 43 54 49 4f | 4e 20 20 42 54 73 74 34 |.FUNCTIO|N  BTst4|
|00000f70| 28 20 20 20 20 6c 6f 6e | 67 31 3a 20 4c 6f 6e 67 |(    lon|g1: Long|
|00000f80| 49 6e 74 3b 20 70 6f 73 | 3a 20 49 4e 54 45 47 45 |Int; pos|: INTEGE|
|00000f90| 52 29 3a 20 42 4f 4f 4c | 45 41 4e 3b 0d 50 52 4f |R): BOOL|EAN;.PRO|
|00000fa0| 43 45 44 55 52 45 20 42 | 43 6c 72 34 28 56 41 52 |CEDURE B|Clr4(VAR|
|00000fb0| 20 6c 6f 6e 67 31 3a 20 | 4c 6f 6e 67 49 6e 74 3b | long1: |LongInt;|
|00000fc0| 20 70 6f 73 3a 20 49 4e | 54 45 47 45 52 29 3b 0d | pos: IN|TEGER);.|
|00000fd0| 50 52 4f 43 45 44 55 52 | 45 20 42 53 65 74 34 28 |PROCEDUR|E BSet4(|
|00000fe0| 56 41 52 20 6c 6f 6e 67 | 31 3a 20 4c 6f 6e 67 49 |VAR long|1: LongI|
|00000ff0| 6e 74 3b 20 70 6f 73 3a | 20 49 4e 54 45 47 45 52 |nt; pos:| INTEGER|
|00001000| 29 3b 0d 0d 28 2a 20 4a | 41 4d 20 39 31 2e 30 38 |);..(* J|AM 91.08|
|00001010| 2e 31 38 20 2a 29 0d 28 | 2a 20 54 68 65 20 66 6f |.18 *).(|* The fo|
|00001020| 6c 6c 6f 77 69 6e 67 20 | 49 4e 4c 49 4e 45 20 62 |llowing |INLINE b|
|00001030| 79 74 65 2d 6c 65 76 65 | 6c 20 72 6f 75 74 69 6e |yte-leve|l routin|
|00001040| 65 73 20 65 6d 69 74 20 | 63 6f 64 65 20 74 68 61 |es emit |code tha|
|00001050| 74 0d 09 61 63 63 65 73 | 73 65 73 20 6f 6e 6c 79 |t..acces|ses only|
|00001060| 20 74 68 65 20 73 70 65 | 63 69 66 69 65 64 20 62 | the spe|cified b|
|00001070| 79 74 65 2c 20 61 6e 64 | 20 6e 6f 20 61 64 6a 61 |yte, and| no adja|
|00001080| 63 65 6e 74 20 62 79 74 | 65 73 0d 09 6f 6e 20 65 |cent byt|es..on e|
|00001090| 69 74 68 65 72 20 73 69 | 64 65 2e 20 20 54 68 69 |ither si|de.  Thi|
|000010a0| 73 20 69 73 20 61 6e 20 | 61 62 73 6f 6c 75 74 65 |s is an |absolute|
|000010b0| 20 72 65 71 75 69 72 65 | 6d 65 6e 74 20 66 6f 72 | require|ment for|
|000010c0| 0d 09 6d 61 6e 69 70 75 | 6c 61 74 69 6e 67 20 73 |..manipu|lating s|
|000010d0| 6f 66 74 73 77 69 74 63 | 68 65 73 20 6f 6e 20 74 |oftswitc|hes on t|
|000010e0| 68 65 20 41 70 70 6c 65 | 20 49 49 47 53 2e 20 20 |he Apple| IIGS.  |
|000010f0| 22 4e 6f 72 6d 61 6c 22 | 0d 09 63 6f 64 65 20 65 |"Normal"|..code e|
|00001100| 6d 69 74 74 65 64 20 62 | 79 20 74 68 65 20 50 61 |mitted b|y the Pa|
|00001110| 73 63 61 6c 20 63 6f 64 | 65 20 67 65 6e 65 72 61 |scal cod|e genera|
|00001120| 74 6f 72 20 74 65 6e 64 | 73 20 74 6f 0d 09 61 63 |tor tend|s to..ac|
|00001130| 63 65 73 73 20 6e 6f 74 | 68 69 6e 67 20 73 6d 61 |cess not|hing sma|
|00001140| 6c 6c 65 72 20 74 68 61 | 6e 20 61 20 77 6f 72 64 |ller tha|n a word|
|00001150| 20 61 74 20 61 20 74 69 | 6d 65 2c 20 66 6f 72 0d | at a ti|me, for.|
|00001160| 09 65 66 66 69 63 69 65 | 6e 63 79 27 73 20 73 61 |.efficie|ncy's sa|
|00001170| 6b 65 2c 20 70 61 63 6b | 69 6e 67 20 61 6e 64 20 |ke, pack|ing and |
|00001180| 75 6e 70 61 63 6b 69 6e | 67 20 69 6e 64 69 76 69 |unpackin|g indivi|
|00001190| 64 75 61 6c 20 62 79 74 | 65 73 0d 09 61 73 20 6e |dual byt|es..as n|
|000011a0| 65 63 65 73 73 61 72 79 | 2e 20 20 42 75 74 20 73 |ecessary|.  But s|
|000011b0| 6f 6d 65 74 69 6d 65 73 | 2c 20 74 68 65 20 73 6f |ometimes|, the so|
|000011c0| 6d 65 77 68 61 74 20 6c | 61 72 67 65 72 2c 20 73 |mewhat l|arger, s|
|000011d0| 6c 6f 77 65 72 0d 09 63 | 6f 64 65 20 68 65 72 65 |lower..c|ode here|
|000011e0| 20 69 73 20 70 72 65 66 | 65 72 72 61 62 6c 65 2c | is pref|errable,|
|000011f0| 20 62 65 63 61 75 73 65 | 2c 20 65 73 70 65 63 69 | because|, especi|
|00001200| 61 6c 6c 79 20 69 6e 0d | 09 73 6f 66 74 73 77 69 |ally in.|.softswi|
|00001210| 74 63 68 20 6d 61 6e 69 | 70 75 6c 61 74 69 6f 6e |tch mani|pulation|
|00001220| 2c 20 6d 65 72 65 20 61 | 63 63 65 73 73 20 74 6f |, mere a|ccess to|
|00001230| 20 62 79 74 65 73 20 6f | 74 68 65 72 20 74 68 61 | bytes o|ther tha|
|00001240| 6e 0d 09 74 68 65 20 6f | 6e 65 20 79 6f 75 20 77 |n..the o|ne you w|
|00001250| 61 6e 74 20 63 61 6e 20 | 6c 65 61 76 65 20 74 68 |ant can |leave th|
|00001260| 65 20 6d 61 63 68 69 6e | 65 20 69 6e 20 62 69 7a |e machin|e in biz|
|00001270| 61 72 72 65 20 73 74 61 | 74 65 73 2e 0d 2a 29 0d |arre sta|tes..*).|
|00001280| 46 55 4e 43 54 49 4f 4e | 20 50 65 65 6b 28 41 64 |FUNCTION| Peek(Ad|
|00001290| 64 72 4f 66 42 79 74 65 | 3a 20 4c 4f 4e 47 49 4e |drOfByte|: LONGIN|
|000012a0| 54 29 3a 20 49 4e 54 45 | 47 45 52 3b 0d 28 2a 20 |T): INTE|GER;.(* |
|000012b0| 52 65 74 75 72 6e 20 61 | 73 20 61 6e 20 49 4e 54 |Return a|s an INT|
|000012c0| 45 47 45 52 2c 20 74 68 | 65 20 76 61 6c 75 65 20 |EGER, th|e value |
|000012d0| 6f 66 20 74 68 65 20 62 | 79 74 65 20 61 74 20 6c |of the b|yte at l|
|000012e0| 6f 63 61 74 69 6f 6e 0d | 09 67 69 76 65 6e 20 62 |ocation.|.given b|
|000012f0| 79 20 41 64 64 72 4f 66 | 42 79 74 65 2e 20 20 54 |y AddrOf|Byte.  T|
|00001300| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 61 63 63 65 |his rout|ine acce|
|00001310| 73 73 65 73 20 74 68 65 | 20 73 69 6e 67 6c 65 0d |sses the| single.|
|00001320| 09 62 79 74 65 20 61 74 | 20 74 68 65 20 67 69 76 |.byte at| the giv|
|00001330| 65 6e 20 61 64 64 72 65 | 73 73 20 6f 6e 6c 79 2c |en addre|ss only,|
|00001340| 20 62 79 20 6e 61 72 72 | 6f 77 69 6e 67 20 61 63 | by narr|owing ac|
|00001350| 63 2d 6d 65 6d 0d 09 77 | 69 64 74 68 20 74 6f 20 |c-mem..w|idth to |
|00001360| 38 2d 62 69 74 73 20 62 | 65 66 6f 72 65 20 74 68 |8-bits b|efore th|
|00001370| 65 20 72 65 61 64 20 6f | 70 65 72 61 74 69 6f 6e |e read o|peration|
|00001380| 2e 0d 2a 29 0d 28 2a 20 | 31 36 20 62 79 74 65 73 |..*).(* |16 bytes|
|00001390| 2c 20 34 31 20 6f 72 20 | 34 34 20 63 79 63 6c 65 |, 41 or |44 cycle|
|000013a0| 73 20 64 65 70 65 6e 64 | 69 6e 67 20 6f 6e 20 53 |s depend|ing on S|
|000013b0| 50 20 76 61 6c 75 65 20 | 61 74 20 65 6e 74 72 79 |P value |at entry|
|000013c0| 20 2a 29 0d 09 49 4e 4c | 49 4e 45 0d 09 09 28 2a | *)..INL|INE...(*|
|000013d0| 20 50 48 44 20 2a 29 09 | 09 09 09 24 30 42 2c 0d | PHD *).|...$0B,.|
|000013e0| 09 09 28 2a 20 54 53 43 | 20 2a 29 09 09 09 09 24 |..(* TSC| *)....$|
|000013f0| 33 42 2c 0d 09 09 28 2a | 20 54 43 44 20 2a 29 09 |3B,...(*| TCD *).|
|00001400| 09 09 09 24 35 42 2c 0d | 09 09 28 2a 20 53 45 50 |...$5B,.|..(* SEP|
|00001410| 09 23 24 32 30 20 2a 29 | 09 09 09 24 45 32 2c 20 |.#$20 *)|...$E2, |
|00001420| 24 32 30 2c 0d 09 09 28 | 2a 20 4c 44 41 09 5b 41 |$20,...(|* LDA.[A|
|00001430| 64 64 72 4f 66 42 79 74 | 65 5d 20 2a 29 09 24 41 |ddrOfByt|e] *).$A|
|00001440| 37 2c 20 24 30 33 2c 0d | 09 09 28 2a 20 53 54 41 |7, $03,.|..(* STA|
|00001450| 09 50 65 65 6b 20 2a 29 | 09 09 09 24 38 35 2c 20 |.Peek *)|...$85, |
|00001460| 24 30 37 2c 0d 09 09 28 | 2a 20 53 54 5a 09 50 65 |$07,...(|* STZ.Pe|
|00001470| 65 6b 2b 31 20 2a 29 09 | 09 24 36 34 2c 20 24 30 |ek+1 *).|.$64, $0|
|00001480| 38 2c 0d 09 09 28 2a 20 | 52 45 50 09 23 24 32 30 |8,...(* |REP.#$20|
|00001490| 20 2a 29 09 09 09 24 43 | 32 2c 20 24 32 30 2c 0d | *)...$C|2, $20,.|
|000014a0| 09 09 28 2a 20 50 4c 44 | 20 2a 29 09 09 09 09 24 |..(* PLD| *)....$|
|000014b0| 32 42 2c 0d 09 09 28 2a | 20 50 4c 41 20 2a 29 09 |2B,...(*| PLA *).|
|000014c0| 09 09 09 24 36 38 2c 0d | 09 09 28 2a 20 50 4c 41 |...$68,.|..(* PLA|
|000014d0| 20 2a 29 09 09 09 09 24 | 36 38 0d 09 09 3b 0d 0d | *)....$|68...;..|
|000014e0| 50 52 4f 43 45 44 55 52 | 45 20 50 6f 6b 65 28 41 |PROCEDUR|E Poke(A|
|000014f0| 64 64 72 4f 66 42 79 74 | 65 3a 20 4c 4f 4e 47 49 |ddrOfByt|e: LONGI|
|00001500| 4e 54 3b 20 56 61 6c 75 | 65 54 6f 50 6f 6b 65 3a |NT; Valu|eToPoke:|
|00001510| 20 49 4e 54 45 47 45 52 | 29 3b 0d 28 2a 20 50 75 | INTEGER|);.(* Pu|
|00001520| 74 20 74 68 65 20 6c 6f | 77 65 72 20 62 79 74 65 |t the lo|wer byte|
|00001530| 20 6f 66 20 56 61 6c 75 | 65 54 6f 50 6f 6b 65 20 | of Valu|eToPoke |
|00001540| 69 6e 74 6f 20 74 68 65 | 20 52 41 4d 20 62 79 74 |into the| RAM byt|
|00001550| 65 2d 6c 6f 63 61 74 69 | 6f 6e 0d 09 73 70 65 63 |e-locati|on..spec|
|00001560| 69 66 69 65 64 20 62 79 | 20 41 64 64 72 4f 66 42 |ified by| AddrOfB|
|00001570| 79 74 65 2e 20 20 54 68 | 69 73 20 72 6f 75 74 69 |yte.  Th|is routi|
|00001580| 6e 65 20 61 63 63 65 73 | 73 65 73 20 74 68 65 0d |ne acces|ses the.|
|00001590| 09 73 69 6e 67 6c 65 20 | 62 79 74 65 20 61 74 20 |.single |byte at |
|000015a0| 74 68 65 20 67 69 76 65 | 6e 20 61 64 64 72 65 73 |the give|n addres|
|000015b0| 73 20 6f 6e 6c 79 2c 20 | 62 79 20 6e 61 72 72 6f |s only, |by narro|
|000015c0| 77 69 6e 67 20 74 68 65 | 0d 09 61 63 63 2d 6d 65 |wing the|..acc-me|
|000015d0| 6d 20 77 69 64 74 68 20 | 74 6f 20 38 2d 62 69 74 |m width |to 8-bit|
|000015e0| 73 20 62 65 66 6f 72 65 | 20 74 68 65 20 77 72 69 |s before| the wri|
|000015f0| 74 65 2e 0d 2a 29 0d 28 | 2a 20 31 35 20 62 79 74 |te..*).(|* 15 byt|
|00001600| 65 73 2c 20 34 33 20 6f | 72 20 34 35 20 63 79 63 |es, 43 o|r 45 cyc|
|00001610| 6c 65 73 20 64 65 70 65 | 6e 64 69 6e 67 20 6f 6e |les depe|nding on|
|00001620| 20 53 50 20 76 61 6c 75 | 65 20 61 74 20 65 6e 74 | SP valu|e at ent|
|00001630| 72 79 20 2a 29 0d 09 49 | 4e 4c 49 4e 45 0d 09 09 |ry *)..I|NLINE...|
|00001640| 28 2a 20 50 48 44 20 2a | 29 09 09 09 09 24 30 42 |(* PHD *|)....$0B|
|00001650| 2c 0d 09 09 28 2a 20 54 | 53 43 20 2a 29 09 09 09 |,...(* T|SC *)...|
|00001660| 09 24 33 42 2c 0d 09 09 | 28 2a 20 54 43 44 20 2a |.$3B,...|(* TCD *|
|00001670| 29 09 09 09 09 24 35 42 | 2c 0d 09 09 28 2a 20 53 |)....$5B|,...(* S|
|00001680| 45 50 09 23 24 32 30 20 | 2a 29 09 09 09 24 45 32 |EP.#$20 |*)...$E2|
|00001690| 2c 20 24 32 30 2c 0d 09 | 09 28 2a 20 4c 44 41 09 |, $20,..|.(* LDA.|
|000016a0| 56 61 6c 75 65 54 6f 50 | 6f 6b 65 20 2a 29 09 24 |ValueToP|oke *).$|
|000016b0| 41 35 2c 20 24 30 33 2c | 0d 09 09 28 2a 20 53 54 |A5, $03,|...(* ST|
|000016c0| 41 09 5b 41 64 64 72 4f | 66 42 79 74 65 5d 20 2a |A.[AddrO|fByte] *|
|000016d0| 29 09 24 38 37 2c 20 24 | 30 37 2c 0d 09 09 28 2a |).$87, $|07,...(*|
|000016e0| 20 52 45 50 09 23 24 32 | 30 20 2a 29 09 09 09 24 | REP.#$2|0 *)...$|
|000016f0| 43 32 2c 20 24 32 30 2c | 0d 09 09 28 2a 20 50 4c |C2, $20,|...(* PL|
|00001700| 44 20 2a 29 09 09 09 09 | 24 32 42 2c 0d 09 09 28 |D *)....|$2B,...(|
|00001710| 2a 20 50 4c 41 20 2a 29 | 09 09 09 09 24 36 38 2c |* PLA *)|....$68,|
|00001720| 0d 09 09 28 2a 20 50 4c | 41 20 2a 29 09 09 09 09 |...(* PL|A *)....|
|00001730| 24 36 38 2c 0d 09 09 28 | 2a 20 50 4c 41 20 2a 29 |$68,...(|* PLA *)|
|00001740| 09 09 09 09 24 36 38 0d | 09 09 3b 0d 0d 45 4e 44 |....$68.|..;..END|
|00001750| 2e 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001790| 5b 20 03 5f 02 20 d9 20 | d9 68 54 3e 3f 4b 01 4a |[ ._. . |.hT>?K.J|
|000017a0| 6e 75 01 57 c0 fb 25 26 | 5a 4f 44 01 00 a0 7f 01 |nu.W..%&|ZOD.....|
|000017b0| 0c 50 61 73 4c 69 62 49 | 6e 74 66 2e 70 7a 02 00 |.PasLibI|ntf.pz..|
|000017c0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|000017d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 9e 19 b0 10 00 00 | 16 d2 00 00 01 ac c4 c8 |........|........|
|00001800| 58 38 ee 28 68 6a f7 50 | 02 02 1a 4a 80 ed 57 01 |X8.(hj.P|...J..W.|
|00001810| ff c8 50 01 02 0a 45 c4 | 01 ff b8 25 5b 5c d1 70 |..P...E.|...%[\.p|
|00001820| 4f 8c 4d 7f c0 5b 06 22 | 4b 54 89 45 e8 00 82 24 |O.M..[."|KT.E...$|
|00001830| d9 24 d9 59 5b 01 21 6b | 75 01 00 8a 7f 01 31 6b |.$.Y[.!k|u.....1k|
|00001840| 7b 01 00 8e 7f 01 11 6b | d2 02 00 90 08 2b 6f 17 |{......k|.....+o.|
|00001850| 00 15 56 c0 02 40 00 01 | 48 c0 20 54 02 28 06 00 |..V..@..|H. T.(..|
|00001860| 7f 00 91 ef 08 81 28 00 | 91 08 2b e8 20 0e 02 00 |......(.|..+. ...|
|00001870| bf 00 91 20 0a 02 81 28 | 00 91 7f 01 08 e8 e8 01 |... ...(|........|
|00001880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 40 00 00 |...H..Mo|naco.@..|
|00001890| 00 00 06 3c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...<....|........|
|000018a0| 00 00 00 00 00 00 00 06 | 00 04 00 33 00 10 01 4a |........|...3...J|
|000018b0| 01 a9 00 33 00 10 01 4a | 01 a9 a4 d4 25 86 00 00 |...3...J|....%...|
|000018c0| 15 67 00 00 15 67 00 00 | 16 78 01 00 00 00 00 1e |.g...g..|.x......|
|000018d0| 00 33 00 10 01 4a 01 a9 | 00 33 00 10 01 4a 01 a9 |.3...J..|.3...J..|
|000018e0| 00 00 16 78 00 00 00 00 | 00 00 00 00 00 00 00 00 |...x....|........|
|000018f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 93 |.....n..|.n...>..|
|00001900| df d8 0e b2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00001910| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001920| 03 f0 ff ff 00 00 00 4c | 00 00 00 00 00 00 00 00 |.......L|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+